100 POKE 53280,.:POKE53281,.:POKE646,8  :PRINTCHR$(147):V=53248
110 POKE53269,1:POKE2040,11:POKEV+21,1:
115 FORC=8TO15:POKE646,C:PRINT"[145][145][145]";
120 PRINT"                                        ";
125 PRINT"[145]                                        ";:
130 PRINT"                                        ";:
135 PRINT"                                        ";;;         :NEXT
140 FORI=1784TO2023:POKEI,98 :NEXT
150 FORS=0TO62:READQ:POKE704+S,Q:NEXT:POKEV+23,1:POKEV+29,1:POKEV+S,33
160 :FORX=90TO205STEP31:POKE53248,X:POKE53249,X/1.7:GOSUB200
165 FORE=24TO30STEP.6:POKE53265,E:POKE53265,PEEK(53265)AND239
170 NEXTE:FORP=21TO36STEP.9:POKE53270,P+24:POKEV+28,P+(P+2)
180 POKEV+37,P+2:POKEV+38,P+6:POKE53265,PEEK(53265)OR16:NEXT:NEXT
190 POKE54296,0:FORZ=1TO1000:NEXT:SYS58253
200 POKE54296,15:POKE54278,155:FORJ=1TO6STEP.9:POKE54276,J+129:NEXT
210 FORI=0TO33:POKE54273,5+ABS(16-I):POKE54276,(I/.5662):NEXT
220 RETURN
230 DATA 122,46,122,67,41,66,114,169,114,66,105,64,122,46,122
240 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,219,64,0,255
250 DATA64,0,255,96,0,102,112,0,60,112,0,126,112,7,255
260 DATA240,15,255,240,14,255,224,14,255,0